home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MASM.ZIP / SAMPLES / MIXED / QPEX.AS$ / QPEX.bin
Encoding:
Text File  |  1991-02-14  |  409 b   |  20 lines
  1. ; Assemble with ML /c QPEX.ASM
  2.  
  3. Power2  PROTO PASCAL  factor:WORD, power:WORD
  4.  
  5. CODE    SEGMENT WORD PUBLIC
  6.     ASSUME  CS:CODE
  7.  
  8.  
  9. Power2  PROC PASCAL   factor:WORD, power:WORD
  10.  
  11.     mov     ax, factor        ; Load factor into AX
  12.     mov     cx, power         ; Load power into CX
  13.     shl    ax, cl              ; AX = AX * (2 to power of CX)
  14.                   ; Leave return value in AX
  15.     ret
  16. Power2  ENDP
  17.  
  18. CODE    ENDS
  19.     END
  20.